home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / DEV / I-Z / ResCopy.cpt / ResCopy XCMD / background_6338.txt < prev    next >
Text File  |  1989-02-02  |  1KB  |  60 lines
  1. -- background: 6338 from stack: in
  2. -- bmap block id: 6663
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 11 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=226 top=153 right=172 bottom=280
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseDown
  22.   push card
  23.   go to card "MenuDown"
  24.   global oneIsHighlighted
  25.   repeat until the mouse is "up"
  26.     put the mouseLoc into msLoc
  27.     put false into oneIsHighlighted
  28.     send "checkMe msLoc" to card button "rename"
  29.     send "checkMe msLoc" to card button "renumber"
  30.     if oneIsHighlighted is false then
  31.       put card field "title" into card field "window"
  32.     end if
  33.   end repeat
  34.   set the highlight of card button "rename" to false
  35.   set the highlight of card button "renumber" to false
  36.   put card field "title" into card field "window"
  37.   pop card
  38. end mouseDown
  39.  
  40.  
  41.  
  42. -- part 14 (button)
  43. -- low flags: 00
  44. -- high flags: 2000
  45. -- rect: left=472 top=21 right=47 bottom=501
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 2162 / 2162
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Return
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   visual iris close
  57.   go to card id 5497
  58. end mouseUp
  59.  
  60.